%
Function ShowAllRetsListings
set (temp)
if not r.eof and not r.bof then
do while not r.eof and not r.bof
vheading = r("address").value & "," & " " & r("city").value
vphotos=r("photos").value
if len(vphotos) > 0 then
vphotos= mid(vphotos,1,len(vphotos)-1)
Newphotofiles = Split(vphotos, "@")
vfile="https://" & Newphotofiles(0)
else
vfile="https://obimages.rewebs.net/nophoto.gif"
end if
DirName=SetPath = "outer banks/real estate/avon"
Filename = "'http://www.outerbanks-real-estate.com/outer banks/real estate/avon/" & r("mlsno").value & "-" & replace(r("address").value," ","-") & "-" & replace(r("city").value," ","-") & "-" & r("state").value & "-" & r("zip").value & ".asp'"
if se = "s" then
response.write("" & vheading & "
" & formatcurrency(r("askprice").value,0) & "
Bedrooms" & " " & r("beds").value & "
Full Baths" & " " & r("fbaths").value & "
")
response.write(" ")
elseif se = "l" then
response.write("" & vheading & " " & formatcurrency(r("askprice").value,0) & " ")
response.write(" ")
elseif se="bank" then
Filename = "http://www.outerbanks-real-estate.com/outer banks/real estate/avon/NewShowPropertyAvon.asp?source=bank&aid=" & aid & "&mls=" & r("mlsno").value & "&id=" & id & "&type=1"
response.write("" & vheading & " " & formatcurrency(r("askprice").value,0) & " ")
response.write(" ")
else
response.write("" & vheading & " "& " " & " Asking: " & formatcurrency(r("askprice").value,0) & " Beds-" & r("beds").value & " " & " " & "Baths-" & r("fbaths").value & " " & "SqFt: " & " " & r("htdlvarsf").value & " " & mid(r("remarks").value,1,185) & " MORE" & " Call Agent 800-647-1868 " & " ")
end if
r.movenext
loop
end if
response.write("")
End Function
%>
<%
Function ShowRetsSoldListings
set (temp)
if not r.eof and not r.bof then
do while not r.eof and not r.bof
vheading = r("address").value & "," & " " & r("city").value
vphotos=r("photos").value
if len(vphotos) > 0 then
vphotos= mid(vphotos,1,len(vphotos)-1)
Newphotofiles = Split(vphotos, "@")
vfile="https://" & Newphotofiles(0)
else
vfile="https://obimages.rewebs.net/nophoto.gif"
end if
DirName=SetPath = "outer banks/real estate/avon"
Filename = "'http://www.outerbanks-real-estate.com/outer banks/real estate/avon/" & r("mlsno").value & "-" & replace(r("address").value," ","-") & "-" & replace(r("city").value," ","-") & "-" & r("state").value & "-" & r("zip").value & ".asp'"
if se = "s" then
response.write("" & vheading & " " & formatcurrency(r("askprice").value,0) & " Bedrooms" & " " & r("beds").value & " Full Baths" & " " & r("fbaths").value & " | ")
response.write(" ")
elseif se = "l" then
response.write("" & vheading & " " & formatcurrency(r("askprice").value,0) & " ")
response.write(" ")
elseif se="bank" then
Filename = "http://www.outerbanks-real-estate.com/outer banks/real estate/avon/NewShowPropertyAvon.asp?source=bank&aid=" & aid & "&mls=" & r("mlsno").value & "&id=" & id & "&type=1"
response.write("" & vheading & " " & formatcurrency(r("askprice").value,0) & " ")
response.write(" ")
else
response.write("" & vheading & " "& " " & " Asking: " & formatcurrency(r("askprice").value,0) & " : " & formatcurrency(r("SoldPrice").value,0) & " " & " " & "Closing Date: " & r("CloseDate").value & " Beds-" & r("beds").value & " " & " " & "Baths-" & r("fbaths").value & " " & mid(r("remarks").value,1,185) & " ")
end if
r.movenext
loop
end if
response.write("")
End Function
%>
 Islander Condos For Sale
<%
temp = "select * from retsproperty where (type = 'Twnhs/Single Fam/Attached' or type = 'condo') and city='Avon' and subdvn='Islander Condos' and StatusCat= 'active'"
ShowAllRetsListings
%>
Islander Condos Sold Recently
The properties below are NOT For Sale. These properties SOLD recently.
<%
temp = "select * from retsproperty where (type = 'Condo' or type = 'Twnhs/Single Fam/Attached') and city='Avon' and subdvn='Islander Condos' and StatusCat= 'sold'"
ShowRetsSoldListings
%>
Islander Condo Bylaws
Islander Condos Declaration - - - *
|